home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / INSTALL.CMD < prev    next >
OS/2 REXX Batch file  |  1991-12-26  |  3KB  |  105 lines
  1. CLS
  2. %a := "Y"
  3. %done := FALSE
  4. While not %done
  5.    Ask "Install Help System? (Y/N) " %a 1 1 Y
  6.    $caps %a
  7.    %done := $eq(%a,"Y") | $eq(%a,"N")
  8. EndWhile
  9. If $eq(%a,"Y")
  10.    ChDir %%help
  11.    IF error
  12.       Message "Creating new directory - %%help^M^J^M^J"
  13.       MkDir %%help
  14.       If Error
  15.          Message "Unable to create directory %%help. Press a key when ready."
  16.          CurOff
  17.          GetKey %a %b
  18.          Stop
  19.       Else
  20.          ChDir %%help
  21.       EndIf
  22.    EndIf
  23.    %exists := GetFirst *.
  24.    If %exists
  25.       Message "Deleting old Help files.^M^J^M^J"
  26.       While %exists
  27.          Erase %SysName
  28.          %exists := GetNext
  29.       EndWhile
  30.    EndIf
  31.    Message "Unpacking Help files. Press a key when ready.^M^J^M^J"
  32.    CurOff
  33.    GetKey %a %b
  34.    CurOn
  35.    Shell ..\SCRHELP
  36.    If Error
  37.       Message "Failed to install Scripta HELP.^M^J^M^J"
  38.    Else
  39.       Message "Scripta Help installed successfully.^M^J^M^J"
  40.    EndIf
  41.    ChDir ..
  42. EndIf
  43. %a := "Y"
  44. %done := FALSE
  45. While not %done
  46.    %done := TRUE
  47.    Ask "Unpack sample .CFG files? (Y/N) " %a 1 1 %a
  48.    $caps %a
  49.    If $eq(%a,"Y")
  50.       Shell SCRCFG
  51.       If Error
  52.          Message "Failed to install sample .CFG files.^M^J^M^J"
  53.       Else
  54.          Message "Sample .CFG files installed successfully.^M^J^M^J"
  55.       EndIf
  56.    Elsif $ne(%a,"N")
  57.       %done := FALSE
  58.    EndIf
  59. EndWhile
  60. %a := "Y"
  61. %done := FALSE
  62. While not %done
  63.    %done := TRUE
  64.    Ask "Install sample Dialling Directory? (Y/N) " %a 1 1 %a
  65.    $caps %a
  66.    If $eq(%a,"Y")
  67.       If Exists scripta.dir
  68.          Erase scripta.dir
  69.       EndIf
  70.       Rename scripta.ddd *.dir
  71.       If Error
  72.          Message "Failed to rename SCRIPTA.DDD to SCRIPTA.DIR.^M^J^M^J"
  73.       Else
  74.          Message "Sample Dialling Directory installed successfully.^M^J^M^J"
  75.       EndIf
  76.    Elsif $ne(%a,"N")
  77.       %done := FALSE
  78.    EndIf
  79. EndWhile
  80. %a := "Y"
  81. %done := FALSE
  82. While not %done
  83.    %done := TRUE
  84.    Ask "Install sample Abbreviations File? (Y/N) " %a 1 1 %a
  85.    $caps %a
  86.    If $eq(%a,"Y")
  87.       If Exists scripta.sub
  88.          Erase scripta.sub
  89.       EndIf
  90.       Rename scripta.sss *.sub
  91.       If Error
  92.          Message "Failed to rename SCRIPTA.SSS to SCRIPTA.SUB.^M^J^M^J"
  93.       Else
  94.          Message "Sample Abbreviations File installed successfully.^M^J^M^J"
  95.       EndIf
  96.    Elsif $ne(%a,"N")
  97.       %done := FALSE
  98.    EndIf
  99. EndWhile
  100. Message "Scripta installation complete.^M^J"
  101. Message "Press a key when ready.^M^J^M^J"
  102. CurOff
  103. GetKey %a %b
  104. Message "Bye."
  105.